Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ViewWindow 1,127,0,1,63,0
I
Lbl 0
[[0,0,0][0,0,0][0,0,0Mat H
0A~Z
-2J
Cls
F-Line 64,55,64,19
F-Line 44,19,44,55
F-Line 24,43,84,43
F-Line 84,31,24,31
Text 12,18,"A"
Text 25,18,"B"
Text 37,18,"C"
Text 47,33,"1"
Text 47,53,"2"
Text 47,73,"3"
Text 63,127," "
Lbl 2
Isz Z
Z=10Goto 8
J+3J
J>41J
Lbl 9
J=1Text 1,1,"1"
J=4Text 1,1,"2"
Text 63,127," "
Do
Getkey
LpWhile Ans76 And Ans66 And Ans56
1N
Ans=763N
Ans=662N
Do
Getkey
LpWhile Ans72 And Ans62 And Ans52
3O
Ans=721O
Ans=622O
Mat H[N,O
Ans=1 Or Ans=4Goto 6
JMat H[N,O]
20xO+4A
12N+7B
If J=1
Then Orange F-Line A+17,B+9,A+3,B+3
Orange F-Line A+17,B+3,A+3,B+9
Else Green Plot A+10,B+10
Green Plot A+17,B+6
Green Line
Green Plot A+10,B+2
Green Line
Green Plot A+3,B+6
Green Line
Green Plot A+10,B+10
Green Line
IfEnd
Lbl 7
0E
1D
For 1C To 3
Mat H[D,C]+Mat H[D+1,C]+Mat H[D+2,C]
Ans=3E
Ans=12-E
Abs E=Goto 3
Next
1C
For 1D To 3
Mat H[D,C]+Mat H[D,C+1]+Mat H[D,C+2]
Ans=3E
Ans=12-E
Abs E=Goto 3
Next
Mat H[1,1]+Mat H[2,2]+Mat H[3,3]
Ans=3E
Ans=12-E
Abs E=Goto 3
Mat H[1,3]+Mat H[2,2]+Mat H[3,1]
Ans=3E
Ans=12-E
Lbl 3
If Abs E=
Then ClrText
Text 20,90,"LE JOUEUR"
E=Text 30,90,"1"
E=-Text 30,90,"2"
Text 30,97,"A GAGNE"
Goto 0
IfEnd
Goto 2
Lbl 8
Text 20,98,"MATCH"
Text 28,102,"NUL"
Goto 0
Lbl 6
Text 3,30,"CASE OCCUPEE"
Text 3,30," "
Goto 9